home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Games: Unofficial Addons & Patches
/
Battle Field Creator v1.31 (demo) (1994)(The Software Society)(DE)(de-en)[req. Battle Isle].zip
/
Battle Field Creator v1.31 (demo) (1994)(The Software Society)(DE)(de-en)[req. Battle Isle].adf
/
Install_Disk
< prev
next >
Wrap
Text File
|
1993-10-18
|
5KB
|
193 lines
(message
"Installation des Battle Field Creators.\n"
"---------------------------------------\n"
"Für die Installation wird eine formatierte Diskette mit dem"
" Namen \"BFC_USER:\" benötigt.\n"
" Liegt eine solche Diskette schon bereit können Sie gleich loslegen."
)
(set drive
(askchoice
(prompt "Wieviele Diskettenlaufwerke besitzt ihr Rechner ?")
(help "Geben Sie einfach an,ob Sie ein Diskettenlaufwerk oder mehrere besitzen.")
(choices "EIN Laufwerk" "mehr als ein Laufwerk")
(default 0)
)
)
(set dir "BFC_USER:")
(set bi2
(askoptions
(prompt "Welche Diskette besitzen Sie ?")
(help @askoptions-help)
(choices "Battle Isle (TM)" "Data Disk 1" "Data Disk 2")
(default 1)
)
)
(if (= (BITAND bi2 5) 0)
(abort "Ohne die Battle Isle (TM) Disketten, können Sie den Battle Field Creator nicht nutzen!")
)
(if (= drive 0)
((makedir "RAM:BFC")
(set dir2 "RAM:BFC"))
(set dir2 dir)
)
(makedir (tackon dir2 "MAPS"))
(set Libs bi2)
(if (= (BITAND LIBS 1) 1)
((makedir (tackon dir2 "LIB0"))
(makedir (tackon dir2 "Computer"))
(set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon dir "Computer") (tackon dir "LIB0")))
)
)
(if (= (BITAND Libs 2) 2)
((makedir (tackon dir2 "LIB1"))
(set z2("Assign LIB1: \"%s\"\n" (tackon dir "LIB1")))
)
)
(if (= (BITAND Libs 4) 4)
((makedir (tackon dir2 "LIB2"))
(set z3 ("Assign LIB2: \"%s\"\n" (tackon dir "LIB2")))
)
)
(makedir (tackon dir2 "s"))
(textfile
(dest (tackon dir2 "Battle Field Creator"))
(append "Assign BFC: BFC_USER:\n")
(append z1)
(append z2)
(append z3)
(append ("\"%s\"\n" (tackon dir "BFC")))
)
(textfile
(dest (tackon dir2 "s/StartUp-Sequence"))
(append "Assign ENV: RAM:\n")
(append "Assign BFC: BFC_USER:\n")
(append z1)
(append z2)
(append z3)
(append ("\"%s\"\n" (tackon dir "BFC")))
)
(makedir (tackon dir2 "Fonts"))
(makedir (tackon dir2 "Fonts/BIC"))
(copyfiles
(prompt "Kopiere Dateien nach %s" dir2)
(source "BFC:FONTS")
(dest (tackon dir2 "FONTS"))
(choices "BIC.font")
)
(copyfiles
(prompt "Kopiere Dateien nach %s" dir2)
(source "BFC:FONTS/BIC")
(dest (tackon dir2 "FONTS/BIC"))
(choices "7" "9")
)
(copyfiles
(prompt "Kopiere Hauptprogramm nach %s" dir2)
(source "BFC:")
(dest dir2)
(choices "BFC")
)
(copyfiles
(source "BFC:DATA")
(dest dir2)
(choices "Battle Field Creator.info")
)
(makedir (tackon dir2 "c"))
(copyfiles
(dest (tackon dir2 "c"))
(source "C:")
(choices "IconX" "Assign")
)
(makedir (tackon dir2 "libs"))
(copyfiles
(dest (tackon dir2 "libs"))
(source "BFC:Libs")
(choices "diskfont.library")
)
(if (= drive 0)
((message
"Bitte wechseln Sie nun die Original BFC-Diskette gegen eine formartierte Diskette mit dem Namen \"BFC_USER:\" aus."
)
(copyfiles
(source "RAM:BFC")
(dest "BFC_USER:")
(all)
)
(delete "RAM:BFC/BFC")
(delete "RAM:BFC/Battle Field Creator.info")
(delete "RAM:BFC/Battle Field Creator")
(delete "RAM:BFC/c/IconX")
(delete "RAM:BFC/c/Assign")
(delete "RAM:BFC/libs/diskfont.library")
(delete "RAM:BFC/FONTS/BIC/7")
(delete "RAM:BFC/FONTS/BIC/9")
(delete "RAM:BFC/FONTS/Bic.font")
(delete "RAM:BFC/S/StartUp-Sequence")
)
)
(if (= (BITAND LIBS 1) 1)
((copyfiles
(source "BI2:LIB")
(dest (tackon dir2 "LIB0"))
(choices "PART.LIB" "PART.TAB" "UNIT.LIB" "UNIT.TAB")
)
(copyfiles
(source "BI2:MAP")
(dest (tackon dir2 "Computer"))
(pattern "#?.com")
))
)
(if (= (BITAND Libs 2) 2)
(copyfiles
(source "BI6:LIB")
(dest (tackon dir2 "LIB1"))
(choices "PART.LIB" "PART.TAB")
)
)
(if (= (BITAND Libs 4) 4)
(copyfiles
(source "DD2:LIB")
(dest (tackon dir2 "LIB2"))
(choices "PART.LIB" "UNIT.LIB")
)
)
(if (= drive 0)
((message
"Bitte legen Sie erneut die \"BFC_USER:\" Diskette ein."
)
(copyfiles
(source "RAM:BFC")
(dest "BFC_USER:")
(all)
)
)
)